How-To PowerBuilder (exg2antt)

1600	How do I set a computated cell individually OleObject oG2antt,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Number") oG2antt.Columns.Add("Format") var_Items = oG2antt.Items h = var_Items.AddItem("1.23") var_Items.CellValueFormat(h,1,2) var_Items.CellValue(h,1,"2 * %0 + ` (2 * Number)`") h = var_Items.AddItem("1.23") var_Items.CellValueFormat(h,1,2) var_Items.CellValue(h,1,"3 * %0 + ` (3 * Number)`") h = var_Items.AddItem("1.23") var_Items.CellValueFormat(h,1,2) var_Items.CellValue(h,1,"currency(%0) + ` ( Currency(Number) )`") oG2antt.EndUpdate()
1599	How can I hide a specific hour OleObject oG2antt,var_Chart,var_InsideZooms,var_InsideZooms1,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DrawGridLines = -1 oG2antt.Columns.Add("Default") var_Chart = oG2antt.Chart var_Chart.AllowInsideZoom = true var_Chart.FirstWeekDay = 1 var_Chart.FirstVisibleDate = 2013-03-31 var_Chart.PaneWidth(false,52) var_Chart.LevelCount = 2 var_Chart.UnitScale = 65536 var_Chart.Level(1).Label = "<font ;6><%h%></font>" var_Chart.UnitWidth = 14 var_Chart.DrawGridLines = -1 var_Chart.AllowInsideZoom = true var_Chart.DefaultInsideZoomFormat.InsideUnit = 1048576 var_Chart.AllowResizeInsideZoom = false var_Chart.InsideZoomOnDblClick = false var_InsideZooms = var_Chart.InsideZooms var_InsideZooms.SplitBaseLevel = false var_InsideZooms.DefaultWidth = 0 var_InsideZooms1 = var_Chart.InsideZooms var_InsideZooms1.Add(DateTime(2013-03-31,23:00:00)) var_Items = oG2antt.Items var_Items.AddItem("Item") oG2antt.EndUpdate()
1598	Is it possible to define the keys of the drop down values to be strings rather than numeric values /begin event Change(long Item, long ColIndex, any NewValue) - Occurs when the user changes the cell's content./ /* oG2antt = ole_1.Object MessageBox("Information",string( "NewValue is" )) MessageBox("Information",string( String(NewValue) )) / /end event Change*/ OleObject oG2antt,var_Editor,var_Editor1,var_Items oG2antt = ole_1.Object var_Editor = oG2antt.Columns.Add("DropDownList-String").Editor var_Editor.EditType = 3 var_Editor.AddItem(1,"NYC\|New York City") var_Editor.AddItem(2,"CJN\|Cluj Napoca") var_Editor1 = oG2antt.Columns.Add("DropDownList-Numeric").Editor var_Editor1.EditType = 3 var_Editor1.AddItem(1,"New York City") var_Editor1.AddItem(2,"Cluj Napoca") var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem("NYC"),1,2)
1597	I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead OleObject oG2antt,var_Column,var_Editor,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Column = oG2antt.Columns.Add("Edit") var_Column.Width = 64 var_Column.AllowSizing = false var_Editor = var_Column.Editor var_Editor.EditType = 8 var_Editor.Mask = ";;;rich" oG2antt.Columns.Add("Empty") var_Items = oG2antt.Items var_Items.AddItem("This is a bit ot long text") var_Items.AddItem("") oG2antt.EndUpdate()
1596	I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part OleObject oG2antt,var_Column,var_Column1,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Column = oG2antt.Columns.Add("DropDown") var_Column.Width = 64 var_Column.AllowSizing = false var_Editor = var_Column.Editor var_Editor.DropDownAlignment = 32 /*0x20 \| / var_Editor.EditType = 2 var_Editor.AddItem(1,"First item. This is a bit ot long text") var_Editor.AddItem(2,"Second item. This is a bit ot long text") var_Editor.AddItem(3,"Third item. This is a bit ot long text") var_Editor.Mask = ";;;rich" var_Column1 = oG2antt.Columns.Add("PickEdit") var_Column1.Width = 64 var_Column1.AllowSizing = false var_Editor1 = var_Column1.Editor var_Editor1.DropDownAlignment = 32 /0x20 \| / var_Editor1.EditType = 14 var_Editor1.AddItem(1,"First item. This is a bit ot long text") var_Editor1.AddItem(2,"Second item. This is a bit ot long text") var_Editor1.AddItem(3,"Third item. This is a bit ot long text") var_Editor1.Mask = ";;;rich" oG2antt.Columns.Add("Empty") var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem("First item. This is a bit ot long text"),1,"Second item. This is a bit ot long text") h = var_Items.AddItem("First item. This is a bit ot long text") var_Editor2 = var_Items.CellEditor(h,0) var_Editor2.DropDownAlignment = 32 /0x20 \| / var_Editor2.EditType = 2 var_Editor2.AddItem(1,"First item. This is a bit ot long text") var_Editor2.AddItem(2,"Second item. This is a bit ot long text") var_Editor2.AddItem(3,"Third item. This is a bit ot long text") var_Items.CellValue(h,1,"Second item. This is a bit ot long text") var_Editor3 = var_Items.CellEditor(h,1) var_Editor3.DropDownAlignment = 32 /0x20 \| */ var_Editor3.EditType = 14 var_Editor3.AddItem(1,"First item. This is a bit ot long text") var_Editor3.AddItem(2,"Second item. This is a bit ot long text") var_Editor3.AddItem(3,"Third item. This is a bit ot long text") oG2antt.EndUpdate()
1595	Is there a property for the back color of the dropdown field OleObject oG2antt,var_Editor oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 var_Editor.Option(55,15790320) var_Editor.Option(56,65793) oG2antt.Items.AddItem(2001-01-01) oG2antt.EndUpdate()
1594	Is it possible to change a back color of the field/cell when it takes a focus /begin event EditClose() - Occurs when the edit operation ends./ /* OleObject var_Items oG2antt = ole_1.Object var_Items = oG2antt.Items var_Items.ClearCellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex) / /end event EditClose/ /begin event EditOpen() - Occurs when the edit operation starts./ / OleObject var_Items,var_Items1 oG2antt = ole_1.Object var_Items = oG2antt.Items var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0)) var_Items1 = oG2antt.Items var_Items1.CellValue(var_Items1.FocusItem,oG2antt.FocusColumnIndex,oG2antt.Items.CellValue(oG2antt.Items.FocusItem,oG2antt.FocusColumnIndex)) / /end event EditOpen*/ OleObject oG2antt,var_Items oG2antt = ole_1.Object oG2antt.FullRowSelect = 0 oG2antt.Columns.Add("C1").Editor.EditType = 1 oG2antt.Columns.Add("C2").Editor.EditType = 1 var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem("v1"),1,"v2") var_Items.CellValue(var_Items.AddItem("v3"),1,"v4")
1593	How can I display the current date mask, but still allow empty values OleObject oG2antt,var_Editor,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.CauseValidateValue = true oG2antt.FullRowSelect = 0 oG2antt.DrawGridLines = -2 var_Editor = oG2antt.Columns.Add("Date").Editor var_Editor.EditType = 7 var_Editor.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype" var_Items = oG2antt.Items var_Items.AddItem() var_Items.AddItem(2001-01-01) var_Items.AddItem() oG2antt.EndUpdate()
1592	How can I align the days in a DateType editor OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Items oG2antt = ole_1.Object oG2antt.Columns.Add("DropDown") var_Items = oG2antt.Items var_Editor = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor.EditType = 7 var_Editor.DropDownAlignment = 2 var_Editor1 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor1.EditType = 7 var_Editor1.DropDownAlignment = 1 var_Editor2 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor2.EditType = 7 var_Editor2.DropDownAlignment = 0 var_Editor3 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor3.EditType = 7 var_Editor3.DropDownAlignment = 32 /*0x20 \| / var_Editor4 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor4.EditType = 7 var_Editor4.DropDownAlignment = 33 /0x20 \| CenterAlignment/ var_Editor5 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor5.EditType = 7 var_Editor5.DropDownAlignment = 34 /0x20 \| RightAlignment*/
1591	How can I align the drop down portion rather the inside captions OleObject oG2antt,var_Editor,var_Editor1,var_Items oG2antt = ole_1.Object oG2antt.Columns.Add("DropDown").Editor.EditType = 7 var_Items = oG2antt.Items var_Editor = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor.EditType = 7 var_Editor.DropDownAlignment = 32 /*0x20 \| */ var_Editor1 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0) var_Editor1.EditType = 7 var_Editor1.DropDownAlignment = 16 var_Items.AddItem(2001-01-01)
1590	Is it possible to show a message that the field is empty OleObject oG2antt,var_Column,var_Editor oG2antt = ole_1.Object oG2antt.DrawGridLines = -2 oG2antt.FullRowSelect = 0 var_Column = oG2antt.Columns.Add("Float") var_Editor = var_Column.Editor var_Editor.EditType = 8 var_Editor.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character" oG2antt.Items.AddItem(192278) oG2antt.Items.AddItem(1000)
1589	How can I mask a date OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.CauseValidateValue = true oG2antt.FullRowSelect = 0 oG2antt.DrawGridLines = -2 oG2antt.Columns.Add("Date") oG2antt.Columns.Add("Mask") var_Items = oG2antt.Items h = var_Items.AddItem(2001-01-01) var_Editor = var_Items.CellEditor(h,0) var_Editor.EditType = 7 var_Editor.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Editor1 = var_Items.CellEditor(h,0) var_Editor1.EditType = 7 var_Editor1.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Editor2 = var_Items.CellEditor(h,0) var_Editor2.EditType = 7 var_Editor2.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Editor3 = var_Items.CellEditor(h,0) var_Editor3.EditType = 7 var_Editor3.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Editor4 = var_Items.CellEditor(h,0) var_Editor4.EditType = 7 var_Editor4.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= " var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``") var_Editor5 = var_Items.CellEditor(h,0) var_Editor5.EditType = 7 var_Editor5.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``") var_Editor6 = var_Items.CellEditor(h,0) var_Editor6.EditType = 7 var_Editor6.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``") var_Editor7 = var_Items.CellEditor(h,0) var_Editor7.EditType = 7 var_Editor7.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) h = var_Items.AddItem(2001-01-01) var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``") var_Editor8 = var_Items.CellEditor(h,0) var_Editor8.EditType = 7 var_Editor8.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype" var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask) oG2antt.EndUpdate()
1588	How can I display and edit an integer number to show grouping digits too ( no decimals) OleObject oG2antt,var_Column,var_Editor oG2antt = ole_1.Object var_Column = oG2antt.Columns.Add("Float") var_Column.FormatColumn = "value format `0`" var_Editor = var_Column.Editor var_Editor.EditType = 8 var_Editor.Mask = ";;;float,digits=0" oG2antt.Items.AddItem(192278)
1587	How can I display and edit a float number to show grouping digits too OleObject oG2antt,var_Column,var_Editor oG2antt = ole_1.Object var_Column = oG2antt.Columns.Add("Float") var_Column.FormatColumn = "value format ``" var_Editor = var_Column.Editor var_Editor.EditType = 8 var_Editor.Mask = ";;;float" oG2antt.Items.AddItem(192278)
1586	How can I mask a phone number OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items any h oG2antt = ole_1.Object oG2antt.CauseValidateValue = true oG2antt.DrawGridLines = -2 oG2antt.FullRowSelect = 0 oG2antt.Columns.Add("Phone").Editor.EditType = 8 var_Items = oG2antt.Items h = var_Items.AddItem() var_Editor = var_Items.CellEditor(h,0) var_Editor.EditType = 8 var_Editor.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field." h = var_Items.AddItem("0123") var_Editor1 = var_Items.CellEditor(h,0) var_Editor1.EditType = 8 var_Editor1.Mask = "!(999) 000 0000;2;;select=4" h = var_Items.AddItem("0123") var_Editor2 = var_Items.CellEditor(h,0) var_Editor2.EditType = 8 var_Editor2.Mask = "`Phone: `!(999) 000-0000" h = var_Items.AddItem("(074) 876-1222") var_Editor3 = var_Items.CellEditor(h,0) var_Editor3.EditType = 8 var_Editor3.Mask = "!(999) 000-0000;0"
1585	Is it possible to display the ColorType fields using RGB format OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Items any h oG2antt = ole_1.Object oG2antt.Columns.Add("Color").Editor.EditType = 9 var_Items = oG2antt.Items var_Items.AddItem(255) h = var_Items.AddItem(255) var_Editor = var_Items.CellEditor(h,0) var_Editor.EditType = 9 var_Editor.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0" h = var_Items.AddItem(255) var_Editor1 = var_Items.CellEditor(h,0) var_Editor1.EditType = 9 var_Editor1.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!" h = var_Items.AddItem(255) var_Editor2 = var_Items.CellEditor(h,0) var_Editor2.EditType = 9 var_Editor2.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!" h = var_Items.AddItem(255) var_Editor3 = var_Items.CellEditor(h,0) var_Editor3.EditType = 9 var_Editor3.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!" h = var_Items.AddItem(255) var_Editor4 = var_Items.CellEditor(h,0) var_Editor4.EditType = 9 var_Editor4.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!" h = var_Items.AddItem(255) var_Editor5 = var_Items.CellEditor(h,0) var_Editor5.EditType = 9 var_Editor5.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!" h = var_Items.AddItem(255) var_Editor6 = var_Items.CellEditor(h,0) var_Editor6.EditType = 9 var_Editor6.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
1584	How can I specify a different color for bars that cross over the non-working part of the chart OleObject oG2antt,var_Bars,var_Chart,var_Items oG2antt = ole_1.Object oG2antt.Columns.Add("Task") var_Bars = oG2antt.Chart.Bars var_Bars.Copy("Task","STask").Color = RGB(255,0,0) var_Bars.Add("Task:STask").Shortcut = "TS" var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,96) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.NonworkingDaysColor = var_Chart.Bars.Item("STask").Color var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Task 1"),"TS",2001-01-02,2001-01-16)
1583	How can I merge two columns /begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection./ /* oG2antt = ole_1.Object oG2antt.Items.CellMerge(Item,0,1) / /end event AddItem*/ OleObject oG2antt,var_Items oG2antt = ole_1.Object oG2antt.MarkSearchColumn = false oG2antt.TreeColumnIndex = -1 oG2antt.DrawGridLines = -1 oG2antt.Columns.Add("C1").Def(16,false) oG2antt.Columns.Add("C2") oG2antt.Columns.Add("C3") var_Items = oG2antt.Items var_Items.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.") var_Items.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
1582	How can I expand an item once the user clicks the column's checkbox /begin event CellStateChanged(long Item, long ColIndex) - Fired after cell's state has been changed./ /* OleObject var_Items oG2antt = ole_1.Object var_Items = oG2antt.Items var_Items.ExpandItem(Item,false) / /end event CellStateChanged*/ OleObject oG2antt,var_Column,var_Columns,var_Items any h,hChild oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Columns = oG2antt.Columns var_Column = var_Columns.Add("") var_Column.Def(0,true) var_Column.AllowSizing = false var_Column.Width = 18 var_Column.PartialCheck = true var_Columns.Add("Tasks") oG2antt.ShowFocusRect = false oG2antt.HasButtons = 0 oG2antt.TreeColumnIndex = 1 oG2antt.Indent = 14 oG2antt.ExpandOnDblClick = false oG2antt.LinesAtRoot = 0 var_Items = oG2antt.Items h = var_Items.AddItem("") var_Items.CellState(h,0,1) var_Items.CellValue(h,1,"Project") hChild = var_Items.InsertItem(h,,"") var_Items.CellValue(hChild,1,"Task 1") hChild = var_Items.InsertItem(h,,"") var_Items.CellValue(hChild,1,"Task 2") var_Items.ExpandItem(h,true) oG2antt.EndUpdate()
1581	How can I define a column with check-box OleObject oG2antt,var_Column,var_Columns,var_Items any h,hChild oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Columns = oG2antt.Columns var_Column = var_Columns.Add("") var_Column.Def(0,true) var_Column.AllowSizing = false var_Column.Width = 18 var_Column.PartialCheck = true var_Columns.Add("Tasks") oG2antt.ShowFocusRect = false oG2antt.HasButtons = 0 oG2antt.TreeColumnIndex = 1 oG2antt.Indent = 14 oG2antt.ExpandOnDblClick = false oG2antt.LinesAtRoot = 0 var_Items = oG2antt.Items h = var_Items.AddItem("") var_Items.CellState(h,0,1) var_Items.CellValue(h,1,"Project") hChild = var_Items.InsertItem(h,,"") var_Items.CellValue(hChild,1,"Task 1") hChild = var_Items.InsertItem(h,,"") var_Items.CellValue(hChild,1,"Task 2") var_Items.ExpandItem(h,true) oG2antt.EndUpdate()
1580	We need to know how it's possibile to have the bars on the same line and not in a different line OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DrawGridLines = -1 var_Chart = oG2antt.Chart var_Chart.DrawGridLines = -1 var_Chart.FirstVisibleDate = 2002-01-01 var_Chart.Bars.Item("Task").OverlaidType = 515 /exOverlaidBarsStackAutoArrange \| exOverlaidBarsStack/ var_Chart.PaneWidth(false,128) oG2antt.Columns.Add("Task") var_Items = oG2antt.Items h = var_Items.AddItem("Tasks") var_Items.AddBar(h,"Task",2002-01-02,2002-01-07,"A") var_Items.AddBar(h,"Task",2002-01-03,2002-01-08,"B") var_Items.AddBar(h,"Task",2002-01-04,2002-01-09,"C") var_Items.ItemBar(h,"A",33,255) var_Items.AddLink("AB",h,"A",h,"B") var_Items.AddLink("BC",h,"B",h,"C") oG2antt.EndUpdate()
1579	The Change event gets me the today date. How can I find what user typed /begin event Change(long Item, long ColIndex, any NewValue) - Occurs when the user changes the cell's content./ /* oG2antt = ole_1.Object MessageBox("Information",string( "NewValue:" )) MessageBox("Information",string( String(NewValue) )) MessageBox("Information",string( "EditingValue:" )) MessageBox("Information",string( oG2antt.EditingText )) / /end event Change*/ OleObject oG2antt oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Chart.PaneWidth(true,0) oG2antt.Columns.Add("Edit").Editor.EditType = 7 oG2antt.Items.AddItem(2001-01-01) oG2antt.EndUpdate()
1578	How can I add a footer row OleObject oG2antt,var_Items any h oG2antt = ole_1.Object oG2antt.ShowLockedItems = true oG2antt.DrawGridLines = 2 oG2antt.Columns.Add("C1") oG2antt.Columns.Add("C2") var_Items = oG2antt.Items var_Items.LockedItemCount(2,1) h = var_Items.LockedItem(2,0) var_Items.ItemBackColor(h,RGB(128,128,128)) var_Items.ItemForeColor(h,RGB(255,255,255)) var_Items.CellValue(h,0,"footer c1") var_Items.CellValue(h,1,"footer c2") var_Items.CellValue(var_Items.AddItem("cell"),1,"cell")
1577	How can I add a header row OleObject oG2antt,var_Items any h oG2antt = ole_1.Object oG2antt.ShowLockedItems = true oG2antt.DrawGridLines = 2 oG2antt.Columns.Add("C1") oG2antt.Columns.Add("C2") var_Items = oG2antt.Items var_Items.LockedItemCount(0,1) h = var_Items.LockedItem(0,0) var_Items.ItemBackColor(h,RGB(128,128,128)) var_Items.ItemForeColor(h,RGB(255,255,255)) var_Items.CellValue(h,0,"footer c1") var_Items.CellValue(h,1,"footer c2") var_Items.CellValue(var_Items.AddItem("cell"),1,"cell")
1576	How can I fix a column, while other sizable and fill the control's client OleObject oG2antt,var_Column oG2antt = ole_1.Object oG2antt.ColumnAutoResize = true oG2antt.Columns.Add("Sizable") var_Column = oG2antt.Columns.Add("F") var_Column.AllowSizing = false var_Column.Width = 16
1575	How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.SortBarVisible = true var_Columns = oG2antt.Columns var_Columns.Add(String(0)) var_Columns.Add(String(1)) var_Columns.Add(String(2)) var_Columns.Add(String(3)) var_Columns.Add(String(4)) oG2antt.Layout = "multiplesort=" + CHAR(34) + "C3:1 C4:2" + CHAR(34) + ";singlesort=" + CHAR(34) + "C2:1" + CHAR(34) + ""
1574	I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.HistogramVisible = true var_Chart.HistogramHeight = 32 var_Chart.Bars.Item("Task").HistogramPattern = 6 var_Chart.PaneWidth(false,128) oG2antt.Columns.Add("Column") var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04) h = var_Items.AddItem("Item 2") var_Items.AddBar(h,"Task",2001-01-03,2001-01-07) var_Items.ItemBar(h,"",33,255) var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",2001-01-06,2001-01-09)
1573	Is it possible to assign a different EBN to a specified bar OleObject oG2antt,var_Appearance,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"c:\exontrol\images\normal.ebn") var_Appearance.Add(2,"c:\exontrol\images\pushed.ebn") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,128) oG2antt.Columns.Add("Tasks") var_Items = oG2antt.Items h = var_Items.AddItem("Task 1") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) h = var_Items.AddItem("Task 2") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",33,255) h = var_Items.AddItem("Task 3") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",33,16777216) h = var_Items.AddItem("Task 4") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",33,16777471) h = var_Items.AddItem("Task 5") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",33,33619967) oG2antt.EndUpdate()
1572	How can I provide a mask for a date column /begin event Change(long Item, long ColIndex, any NewValue) - Occurs when the user changes the cell's content./ /* oG2antt = ole_1.Object MessageBox("Information",string( "Prev Value " )) MessageBox("Information",string( String(oG2antt.Items.CellValue(Item,ColIndex)) )) MessageBox("Information",string( "Check and Update the NewValue" )) MessageBox("Information",string( String(NewValue) )) NewValue = 2001-01-01 / /end event Change*/ OleObject oG2antt,var_Column,var_Editor oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.MarkSearchColumn = false var_Column = oG2antt.Columns.Add("Date") var_Column.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)" var_Editor = var_Column.Editor var_Editor.EditType = 7 var_Editor.Mask = "{1,12}\/{1,31}\/{1,2099}" oG2antt.Items.AddItem(2001-01-01) oG2antt.EndUpdate()
1571	I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible OleObject oG2antt oG2antt = ole_1.Object oG2antt.ToolTipDelay = 1 oG2antt.ToolTipWidth = 364 oG2antt.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn") oG2antt.Background(64,16777216 /0x1000000/) oG2antt.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
1570	Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters OleObject oG2antt,var_Editor oG2antt = ole_1.Object var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Numeric = 770 /exDisableSigns \| exFloatInteger/ oG2antt.Items.AddItem(1.22)
1569	How can I edit a float number with no using of e/E/d/D and + character OleObject oG2antt,var_Editor oG2antt = ole_1.Object var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Numeric = 258 /exDisablePlus \| exFloatInteger/ oG2antt.Items.AddItem(1.22)
1568	Is it possible to edit a float number with no using of e/E/d/D (exponent) characters OleObject oG2antt,var_Editor oG2antt = ole_1.Object var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Numeric = 2 oG2antt.Items.AddItem(1.22)
1567	How can I edit an integer with no using of +/- signs OleObject oG2antt,var_Editor oG2antt = ole_1.Object var_Editor = oG2antt.Columns.Add("Edit").Editor var_Editor.EditType = 1 var_Editor.Numeric = 1023 /0xfc \| exDisableSigns \| exFloatInteger \| exFloat/ oG2antt.Items.AddItem(1)
1566	When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items oG2antt = ole_1.Object var_Columns = oG2antt.Columns var_Columns.Add("Value") var_Column = var_Columns.Add("CellSingleLine = False") var_Column.ComputedField = "%0" var_Column.Def(16,false) var_Column1 = var_Columns.Add("FormatColumn/replace CRLF") var_Column1.ComputedField = "%0" var_Column1.FormatColumn = "value replace `\r\n` with ``" var_Column2 = var_Columns.Add("FormatColumn/replace TAB,CRLF") var_Column2.ComputedField = "%0" var_Column2.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``" var_Items = oG2antt.Items var_Items.AddItem("a\ta\r\nb\tb")
1565	I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color OleObject oG2antt,var_Chart,var_Items any h1,h2,h3 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DefaultItemHeight = 24 oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.LevelCount = 2 var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,48) var_Chart.NonworkingDays = 0 var_Chart.LinksStyle = 0 var_Chart.ShowLinksColor(17 /exUpdateColorLinksOnly \| exShowLinksStartFrom/,RGB(255,0,0)) var_Chart.ShowLinksColor(18 /exUpdateColorLinksOnly \| exShowLinksEndTo/,RGB(0,255,0)) var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"") h2 = var_Items.AddItem("Task 2") var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"") var_Items.ItemBar(h2,"",257,true) var_Items.AddLink("L1",h1,"",h2,"") h3 = var_Items.AddItem("Task 3") var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"") var_Items.AddLink("L2",h2,"",h3,"") var_Items.SchedulePDM(0,"") oG2antt.EndUpdate()
1564	Apparently, the links are shown on the back. Is there any option to bring them in front OleObject oG2antt,var_Chart,var_Items any h1,h2 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Tasks") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2006-09-19 var_Chart.PaneWidth(false,64) var_Chart.NonworkingDaysPattern = 1 var_Chart.ShowLinks = 17 /exShowLinksFront \| exShowExtendedLinks/ var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"Task",2006-09-20,2006-09-22) h2 = var_Items.AddItem("Task 2") var_Items.AddBar(h2,"Task",2006-09-26,2006-09-28) var_Items.ItemBar(h2,"",257,true) var_Items.AddLink("L1",h1,"",h2,"") var_Items.Link("L1",12,"L1") oG2antt.EndUpdate()
1563	How can I enable the extended links feature OleObject oG2antt,var_Chart,var_Items any h1,h2,h3 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DefaultItemHeight = 24 oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.LevelCount = 2 var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,48) var_Chart.NonworkingDays = 0 var_Chart.LinksStyle = 0 var_Chart.ShowLinks = 1 var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"") h2 = var_Items.AddItem("Task 2") var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"") var_Items.AddLink("L1",h1,"",h2,"") h3 = var_Items.AddItem("Task 3") var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"") var_Items.AddLink("L2",h3,"",h2,"") var_Items.SchedulePDM(0,"") oG2antt.EndUpdate()
1562	How do I count all bars in the chart OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Task") var_Items.AddBar(hSummary,"Task",2001-01-02,2001-01-05,"K1") hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"Task",2001-01-03,2001-01-05,"K11") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"Task",2001-01-03,2001-01-05,"K12") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21") var_Items.ExpandItem(0,true) MessageBox("Information",string( "Count: " )) MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) )) oG2antt.EndUpdate()
1561	Is there any property to count the all child bars of a specified item ( all descendents ) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0) var_Items = oG2antt.Items hSummary = var_Items.AddItem("Project") var_Items.ItemBold(hSummary,true) hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K1") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"CountTask",2001-01-03,2001-01-05,"K11") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"CountTask",2001-01-03,2001-01-05,"K12") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"CountTask",2001-01-05,2001-01-09,"K21") var_Items.ExpandItem(0,true) var_Items.DefaultItem = var_Items.ItemByIndex(0) MessageBox("Information",string( "Count: " )) MessageBox("Information",string( String(var_Items.ItemBar(-3,"<*>",256)) )) var_Items.DefaultItem = 0 oG2antt.EndUpdate()
1560	Is there any property to count the child bars of a specified item ( leaf descendents ) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0) var_Items = oG2antt.Items hSummary = var_Items.AddItem("Project") var_Items.ItemBold(hSummary,true) hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"CountTask",2001-01-03,2001-01-05,"K11") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"CountTask",2001-01-03,2001-01-05,"K12") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"CountTask",2001-01-05,2001-01-09,"K21") var_Items.ExpandItem(0,true) var_Items.DefaultItem = var_Items.ItemByIndex(0) MessageBox("Information",string( "Count: " )) MessageBox("Information",string( String(var_Items.ItemBar(-2,"<*>",256)) )) var_Items.DefaultItem = 0 oG2antt.EndUpdate()
1559	Is there any property to count the child bars of a specified item ( direct descendents ) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0) var_Items = oG2antt.Items hSummary = var_Items.AddItem("Project") var_Items.ItemBold(hSummary,true) hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K1") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"Task",2001-01-03,2001-01-05,"K11") var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"Task",2001-01-03,2001-01-05,"K12") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21") var_Items.ExpandItem(0,true) var_Items.DefaultItem = var_Items.ItemByIndex(0) MessageBox("Information",string( "Count: " )) MessageBox("Information",string( String(var_Items.ItemBar(-1,"<*>",256)) )) var_Items.DefaultItem = 0 oG2antt.EndUpdate()
1558	How can I define all child items to belong to a summary bar (DefineSummaryBars-3) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Summary") var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"") hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1") hTask = var_Items.InsertItem(hTask,,"Task A.1") var_Items.AddBar(hTask,"Task",2001-01-03,2001-01-05,"K11") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21") var_Items.DefineSummaryBars(hSummary,"",-3,"<K*>") var_Items.ExpandItem(0,true) oG2antt.EndUpdate()
1557	Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Summary") var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"") hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"1Task",2001-01-02,2001-01-05,"K1") hTask = var_Items.InsertItem(hTask,,"Task A.1") var_Items.AddBar(hTask,"Task",2001-01-03,2001-01-05,"K11") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"1Task",2001-01-02,2001-01-05,"K2") hTask = var_Items.InsertItem(hTask,,"Task B.1") var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21") var_Items.DefineSummaryBars(hSummary,"",-2,"<K*>") var_Items.ExpandItem(0,true) oG2antt.EndUpdate()
1556	How can I assign the childs bars to a summary bar (DefineSummaryBars-1) OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Summary") var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"") hTask = var_Items.InsertItem(hSummary,,"Task A") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1") hTask = var_Items.InsertItem(hSummary,,"Task B") var_Items.AddBar(hTask,"Task",2001-01-04,2001-01-08,"K2") var_Items.ExpandItem(hSummary,true) var_Items.DefineSummaryBars(hSummary,"",-1,"<*>") oG2antt.EndUpdate()
1555	Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0) OleObject oG2antt,var_Chart,var_Items any hSummary oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Summary") var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"summary") var_Items.AddBar(var_Items.AddItem("Task A"),"Task",2001-01-02,2001-01-05,"K1") var_Items.AddBar(var_Items.AddItem("Task B"),"Task",2001-01-06,2001-01-09,"K2") var_Items.AddBar(var_Items.AddItem("Task C"),"Task",2001-01-11,2001-01-14,"K3") var_Items.DefineSummaryBars(hSummary,"summary",0,"<K*>") oG2antt.EndUpdate()
1554	Is there any way to "unselect" radio group /begin event DblClick(integer Shift, long X, long Y) - Occurs when the user dblclk the left mouse button over an object./ /* OleObject var_Items any h oG2antt = ole_1.Object var_Items = oG2antt.Items h = var_Items.CellChecked(1234) var_Items.CellHasCheckBox(0,h,true) var_Items.CellState(0,h,0) var_Items.CellHasCheckBox(0,h,false) / /end event DblClick/ /begin event SelectionChanged() - Fired after a new item has been selected./ / OleObject var_Items oG2antt = ole_1.Object var_Items = oG2antt.Items var_Items.CellState(var_Items.FocusItem,0,1) / /end event SelectionChanged*/ OleObject oG2antt,var_Items any h oG2antt = ole_1.Object oG2antt.MarkSearchColumn = false oG2antt.SelBackColor = RGB(255,255,128) oG2antt.SelForeColor = RGB(0,0,0) oG2antt.Columns.Add("Default") var_Items = oG2antt.Items h = var_Items.AddItem("Radio 1") var_Items.CellHasRadioButton(h,0,true) var_Items.CellRadioGroup(h,0,1234) h = var_Items.AddItem("Radio 2") var_Items.CellHasRadioButton(h,0,true) var_Items.CellRadioGroup(h,0,1234) var_Items.CellState(h,0,1) h = var_Items.AddItem("Radio 3") var_Items.CellHasRadioButton(h,0,true) var_Items.CellRadioGroup(h,0,1234)
1553	The Column.Alignment property does not seem to work for cells with images in them. What can be done OleObject oG2antt,var_Column,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oG2antt.TreeColumnIndex = -1 oG2antt.DrawGridLines = -1 oG2antt.HeaderHeight = 24 oG2antt.DefaultItemHeight = 24 var_Column = oG2antt.Columns.Add("Image") var_Column.AllowSizing = false var_Column.Width = 32 var_Column.HTMLCaption = "<img>1</img>" var_Column.HeaderAlignment = 1 var_Column.Alignment = 1 var_Column.Def(17,1) oG2antt.Columns.Add("Rest") var_Items = oG2antt.Items var_Items.AddItem("<img>1</img>") var_Items.AddItem("<img>2</img>") var_Items.AddItem("<img>3</img>") oG2antt.EndUpdate()
1552	Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication /begin event BarResize(long Item, any Key) - Occurs when a bar is moved or resized./ /* oG2antt = ole_1.Object oG2antt.Refresh() / /end event BarResize*/ OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DefaultItemHeight = 22 oG2antt.Columns.Add("InterectBars") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,48) var_Chart.FirstVisibleDate = 2001-01-01 var_Bar = var_Chart.Bars.Item("Task") var_Bar.OverlaidType = 2 var_Bar.Overlaid(2,"ERROR") var_Bar1 = var_Chart.Bars.Add("ERROR") var_Bar1.Color = RGB(255,0,0) var_Bar1.Pattern = 1 var_Bar1.Height = 7 var_Items = oG2antt.Items h = var_Items.AddItem("") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A","A") var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"B","B") var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B")) h = var_Items.AddItem("") var_Items.AddBar(h,"Task",2001-01-06,2001-01-09,"A","A") var_Items.AddBar(h,"Task",2001-01-10,2001-01-13,"B","B") var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B")) h = var_Items.AddItem("") var_Items.AddBar(h,"Task",2001-01-06,2001-01-09,"B","B") var_Items.AddBar(h,"Task",2001-01-10,2001-01-13,"A","A") var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B")) oG2antt.EndUpdate()
1551	Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller OleObject oG2antt,var_Column,var_Columns,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.HeaderHeight = 32 var_Columns = oG2antt.Columns var_Column = var_Columns.Add("ID") var_Column.HTMLCaption = "<font ;16>ID" var_Column.Width = 32 var_Column.AllowSizing = false var_Columns.Add("Task").HTMLCaption = "<font ;16>Task" oG2antt.FocusColumnIndex = 1 oG2antt.ShowFocusRect = false oG2antt.Chart.PaneWidth(true,0) var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem(1),1,"Task A") var_Items.CellValue(var_Items.AddItem(2),1,"Task B") oG2antt.EndUpdate()
1550	How can I create items and bars at runtime OleObject oG2antt,var_Chart,var_Column,var_Columns oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Columns = oG2antt.Columns var_Column = var_Columns.Add("ID") var_Column.FormatColumn = "1 index ''" var_Column.Width = 32 var_Column.AllowSizing = false var_Columns.Add("Task").Editor.EditType = 1 oG2antt.FocusColumnIndex = 1 oG2antt.ShowFocusRect = false var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.AllowCreateBar = 1 oG2antt.Template = "Chart.Bars(" + CHAR(34) + "Task" + CHAR(34) + "){Def(3) = " + CHAR(34) + "<%=%C1%>" + CHAR(34) + ";Def(4)=18}" oG2antt.EndUpdate()
1549	How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly OleObject oG2antt,var_Chart,var_Items any hSummary,hTask oG2antt = ole_1.Object oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Items = oG2antt.Items hSummary = var_Items.AddItem("Summary") var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02) hTask = var_Items.AddItem("Task A") var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05) var_Items.DefineSummaryBars(hSummary,"",hTask,"") hTask = var_Items.AddItem("Task B") var_Items.AddBar(hTask,"Task",2001-01-04,2001-01-08) var_Items.DefineSummaryBars(hSummary,"",hTask,"")
1548	How can I show the bars using a solid color, with no pattern inside OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DefaultItemHeight = 24 oG2antt.DrawGridLines = -1 var_Chart = oG2antt.Chart var_Chart.DrawGridLines = -1 var_Chart.NonworkingDays = 0 var_Chart.PaneWidth(false,128) var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.Bars.Item("Task").Pattern = 1 oG2antt.Columns.Add("Column") var_Items = oG2antt.Items h = var_Items.AddItem("Solid A") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A") var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B") var_Items.ItemBar(h,"B",33,255) var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"C") var_Items.ItemBar(h,"C",33,65280) h = var_Items.AddItem("Solid B") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A") var_Items.ItemBar(h,"A",7,255) var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B") var_Items.ItemBar(h,"B",33,255) var_Items.ItemBar(h,"B",7,65280) var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"C") var_Items.ItemBar(h,"C",33,16711680) var_Items.ItemBar(h,"C",7,16711935) oG2antt.EndUpdate()
1547	Basically what I am trying to do is replicate MS Project look & feel. Is that possible OleObject oG2antt,var_Appearance,var_Chart oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxdDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSizjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEWBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=") var_Appearance.Add(39,"CP:1 -1 -1 0 0") var_Appearance.Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5PjaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxPiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==") var_Appearance.Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRiYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAEDCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQXhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDSWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" & +"FlCFAEICA") var_Appearance.Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIWBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCFaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg") oG2antt.Appearance = 671088640 /*0x28000000 \| / oG2antt.BackColor = RGB(255,255,255) oG2antt.BackColorLevelHeader = RGB(255,255,255) oG2antt.BackColorHeader = 654311424 /0x27000000/ oG2antt.SelBackColor = RGB(0,0,0) oG2antt.SelForeColor = RGB(255,255,255) var_Chart = oG2antt.Chart var_Chart.BackColorLevelHeader = 654311424 /0x27000000/ var_Chart.BackColor = RGB(255,255,255) var_Chart.Bars.Item("Task").Color = 704643072 /0x2a000000/ oG2antt.FilterBarBackColor = 16777216 /0x1000000/ oG2antt.Background(32,687865856 /0x29000000/) oG2antt.Background(64,16777216 /0x1000000/) oG2antt.Background(18,16777216 /0x1000000*/) oG2antt.EndUpdate()
1546	Is there anyway to change the style of the splitter which separates the list/chart OleObject oG2antt oG2antt = ole_1.Object oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") oG2antt.Background(0,16777216 /0x1000000/) oG2antt.Background(18,33488896 /0x1ff0000/)
1545	Does your control support subscript or superscript, in HTML captions OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,64) oG2antt.Columns.Add("Column") var_Items = oG2antt.Items h = var_Items.AddItem("Item 1") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"") var_Items.ItemBar(h,"",3,"<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1") var_Items.ItemBar(h,"",4,18)
1544	I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2") oG2antt.BackColorHeader = 16777216 /0x1000000/ oG2antt.Background(32,19760895 /0x12d86ff/)
1543	Is it possible to change the visual appearance of the columns selector/floating bar(3) OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false oG2antt.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn") oG2antt.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn") oG2antt.Background(92,33554432 /0x2000000/) oG2antt.Background(87,50331648 /0x3000000/) oG2antt.Background(93,RGB(246,245,240)) oG2antt.ColumnsFloatBarVisible = true
1542	Is it possible to change the visual appearance of the columns selector/floating bar(2) OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false oG2antt.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn") oG2antt.Background(87,50331648 /0x3000000/) oG2antt.ColumnsFloatBarVisible = true
1541	Is it possible to change the visual appearance of the columns selector/floating bar(1) OleObject oG2antt oG2antt = ole_1.Object oG2antt.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn") oG2antt.Background(92,33554432 /0x2000000/) oG2antt.Background(87,RGB(246,245,240)) oG2antt.Background(93,RGB(246,245,240)) oG2antt.ColumnsFloatBarVisible = true
1540	I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false oG2antt.ColumnsFloatBarVisible = true
1539	Is it possible to list a column to columns selector/floating bar, but still user can use it OleObject oG2antt,var_Column,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false var_Column = var_Columns.Add("Column 3") var_Column.Visible = false var_Column.Enabled = false oG2antt.ColumnsFloatBarVisible = true
1538	How can I prevent a specific column not to be listed in the columns selector/floating bar OleObject oG2antt,var_Column,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false var_Column = var_Columns.Add("Column 3") var_Column.Visible = false var_Column.AllowDragging = false oG2antt.ColumnsFloatBarVisible = true
1537	Is it possible to change the "Columns" caption being shown in the columns selector/floating bar OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false oG2antt.Description(26,"Hidden Columns") oG2antt.ColumnsFloatBarVisible = true
1536	How can I show the columns selector, so the user can drag and drop columns to the view OleObject oG2antt,var_Columns oG2antt = ole_1.Object oG2antt.ColumnAutoResize = false var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Visible = false oG2antt.ColumnsFloatBarVisible = true
1535	The column's header is changed while the cursor hovers it. Is it possible to prevent that OleObject oG2antt,var_Columns oG2antt = ole_1.Object var_Columns = oG2antt.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2") oG2antt.Background(32,-1)
1534	Is there any property I can save and restore automatically the current setting, column position, size, and so on (2) OleObject oG2antt,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Column") var_Items = oG2antt.Items var_Items.AddItem("Item 1") var_Items.AddItem("Item 2") var_Items.AddItem("Item 3") oG2antt.Layout = "Select=" + CHAR(34) + "0" + CHAR(34) + ";SingleSort=" + CHAR(34) + "C0:2" + CHAR(34) + ";Columns=1" oG2antt.EndUpdate()
1533	Is there any property I can save and restore automatically the current setting, column position, size, and so on (1) OleObject oG2antt,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Column") var_Items = oG2antt.Items var_Items.AddItem("Item 1") var_Items.AddItem("Item 2") var_Items.AddItem("Item 3") oG2antt.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI=" oG2antt.EndUpdate()
1532	How do I arrange my columns on multiple levels OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.ColumnAutoResize = false oG2antt.DrawGridLines = -1 var_Columns = oG2antt.Columns var_Column = var_Columns.Add("C0") var_Column.ExpandColumns = "1,2" var_Column.DisplayExpandButton = false var_Columns.Add("C1") var_Columns.Add("C2") var_Columns.Add("C3") var_Column1 = var_Columns.Add("C4") var_Column1.ExpandColumns = "5,6" var_Column1.DisplayExpandButton = false var_Columns.Add("C5") var_Column2 = var_Columns.Add("C6") var_Column2.ExpandColumns = "6,7" var_Column2.DisplayExpandButton = false var_Columns.Add("C7") oG2antt.EndUpdate()
1531	Does your control support expandable header or columns, so I can arrange it on multiple levels OleObject oG2antt,var_Column,var_Column1,var_Columns oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.DrawGridLines = -1 oG2antt.BackColorLevelHeader = RGB(240,240,240) var_Columns = oG2antt.Columns var_Column = var_Columns.Add("Photo") var_Column.AllowSizing = false var_Column.Width = 32 var_Columns.Add("Personal Info") var_Columns.Add("Title") var_Columns.Add("Name") var_Columns.Add("First") var_Columns.Add("Last") var_Columns.Add("Address") var_Columns.Item("Personal Info").ExpandColumns = "2,3" var_Column1 = var_Columns.Item("Name") var_Column1.ExpandColumns = "4,5" var_Column1.Expanded = false oG2antt.EndUpdate()
1530	I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that OleObject oG2antt,var_Chart,var_InsideZoomFormat,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,128) var_Chart.AllowCreateBar = 1 var_Chart.UnitWidth = 50 var_Chart.FirstVisibleDate = 2013-01-01 var_Chart.LevelCount = 2 var_Chart.Level(0).Label = 4096 var_Chart.Level(1).Label = "<%h%>:<%nn%>" var_Chart.Level(1).Unit = 1048576 var_Chart.Level(1).Count = 60 var_Chart.ResizeUnitScale = 1048576 var_Chart.ResizeUnitCount = 15 var_Chart.AllowInsideZoom = true var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat var_InsideZoomFormat.InsideCount = 5 var_InsideZoomFormat.InsideUnit = 1048576 var_InsideZoomFormat.InsideLabel = "<%nn%>" var_Items = oG2antt.Items var_Items.AddItem("Item") oG2antt.EndUpdate()
1529	Can I change the format of date to be shown in the control OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items oG2antt = ole_1.Object oG2antt.Chart.PaneWidth(true,0) var_Columns = oG2antt.Columns var_Columns.Add("Default") var_Column = var_Columns.Add("Format.1") var_Column.ComputedField = "%0" var_Column.FormatColumn = "dateF(value) replace `/` with `-`" var_Column1 = var_Columns.Add("Format.2") var_Column1.ComputedField = "%0" var_Column1.Def(17,1) var_Column1.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)" var_Column2 = var_Columns.Add("Format.3") var_Column2.ComputedField = "%0" var_Column2.Def(17,1) var_Column2.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(value) replace `/` with `-` )" var_Items = oG2antt.Items var_Items.AddItem(DateTime(2001-01-01,10:00:00)) var_Items.AddItem(DateTime(2001-01-02,10:00:00))
1528	How can I display a text/caption on the chart part of the control OleObject oG2antt,var_Chart,var_Items,var_Note,var_Note1,var_Note2,var_Notes any h1 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.AntiAliasing = true var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2000-12-26 var_Chart.PaneWidth(false,128) oG2antt.Columns.Add("Column") var_Items = oG2antt.Items h1 = var_Items.AddItem("Item 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A") var_Items.ItemBar(h1,"A",3,"text") h1 = var_Items.AddItem("Item 2") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A") var_Items.ItemBar(h1,"A",3,"text outside associated with a bar") var_Items.ItemBar(h1,"A",4,18) h1 = var_Items.AddItem("Item 3") var_Items.AddBar(h1,"",2001-01-02,2001-01-02,"A") var_Items.ItemBar(h1,"A",3,"text with no bar associated") h1 = var_Items.AddItem("Item 4") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-05,"A") h1 = var_Items.AddItem("Item 5") h1 = var_Items.AddItem("Item 6") h1 = var_Items.AddItem("Item 7") h1 = var_Items.AddItem("Item 8") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A") h1 = var_Items.AddItem("Item 8") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-06,"A") var_Notes = oG2antt.Chart.Notes var_Notes.Add("1S",oG2antt.Items.ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").PartCanMove(0,true) var_Notes.Add("AK",oG2antt.Items.ItemByIndex(6),2001-01-06,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>") var_Note = var_Notes.Add("2S",oG2antt.Items.ItemByIndex(7),"A","<font ;6>Fixed Note Left") var_Note.ShowLink = 0 var_Note.PartVOffset(1,0) var_Note.PartHOffset(0,-32) var_Note.PartShadow(1,false) var_Note.PartBackColor(1,RGB(255,255,0)) var_Note1 = var_Notes.Add("3S",oG2antt.Items.ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>") var_Note1.PartCanMove(1,true) var_Note1.PartHOffset(1,-64) var_Note1.LinkStyle = 2 var_Note1.LinkWidth = 2 var_Note1.LinkColor = RGB(0,0,255) var_Note2 = var_Notes.Add("3F",oG2antt.Items.ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>") var_Note2.RelativePosition = 1 var_Note2.PartCanMove(1,true) var_Note2.LinkStyle = 2 var_Note2.LinkWidth = 2 var_Note2.LinkColor = RGB(0,0,255) oG2antt.EndUpdate()
1527	Which is the best way of change Bar parent OleObject oG2antt,var_Items any h1,h2,h3 oG2antt = ole_1.Object oG2antt.Debug = true oG2antt.Chart.FirstVisibleDate = 2001-01-01 oG2antt.Columns.Add("Column") var_Items = oG2antt.Items h1 = var_Items.AddItem("Item 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A") h2 = var_Items.AddItem("Item 2") var_Items.AddBar(h2,"Task",2001-01-03,2001-01-05,"B") h3 = var_Items.AddItem("Item 3") var_Items.AddBar(h3,"Task",2001-01-05,2001-01-07,"A") var_Items.ItemBar(h3,"A",512,h1) MessageBox("Information",string( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" )) var_Items.ItemBar(h3,"A",512,h2) MessageBox("Information",string( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" ))
1526	Is it possible to have a bar in bar OleObject oG2antt,var_Appearance,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRLUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJcgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAmUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiahCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWEZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" & +"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSMQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCiIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBTAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=") var_Appearance.Add(2,"c:\exontrol\images\normal.ebn") var_Appearance.Add(3,"CP:2 2 -4 2 4") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,256) var_Chart.LevelCount = 2 var_Chart.FirstVisibleDate = 2001-01-01 oG2antt.Columns.Add("Info") var_Items = oG2antt.Items h = var_Items.AddItem("Range Moveable Frame") var_Items.AddBar(h,"Task",2001-01-04,2001-01-08,"F") var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.") var_Items.ItemBar(h,"F",22,2001-01-02) var_Items.ItemBar(h,"F",25,2001-01-18) var_Items.ItemBar(h,"F",26,32) var_Items.ItemBar(h,"F",27,90) h = var_Items.AddItem("Range Moveable Pattern") var_Items.AddBar(h,"Task",2001-01-06,2001-01-10,"F") var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.") var_Items.ItemBar(h,"F",22,2001-01-02) var_Items.ItemBar(h,"F",25,2001-01-18) var_Items.ItemBar(h,"F",26,1) var_Items.ItemBar(h,"F",27,90) h = var_Items.AddItem("Range Moveable EBN Transparent") var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"F") var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.") var_Items.ItemBar(h,"F",22,2001-01-02) var_Items.ItemBar(h,"F",25,2001-01-18) var_Items.ItemBar(h,"F",26,16777216) var_Items.ItemBar(h,"F",27,50) h = var_Items.AddItem("Range Moveable EBN Opaque 1") var_Items.ItemHeight(h,24) var_Items.AddBar(h,"Task",2001-01-10,2001-01-14,"F") var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.") var_Items.ItemBar(h,"F",22,2001-01-02) var_Items.ItemBar(h,"F",25,2001-01-18) var_Items.ItemBar(h,"F",26,33554432) h = var_Items.AddItem("Range Moveable EBN Opaque 2") var_Items.ItemHeight(h,24) var_Items.AddBar(h,"Task",2001-01-12,2001-01-16,"F") var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.") var_Items.ItemBar(h,"F",22,2001-01-02) var_Items.ItemBar(h,"F",25,2001-01-18) var_Items.ItemBar(h,"F",26,50331648) oG2antt.EndUpdate()
1525	How can I show vertical lines using the SelectDate OleObject oG2antt,var_Appearance,var_Chart oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRDUMI6QjPVARVIkaxhCSSaKpIAIBEB") var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,0) var_Chart.FirstVisibleDate = 2008-01-01 var_Chart.MarkTodayColor = var_Chart.BackColor var_Chart.LevelCount = 2 var_Chart.AllowSelectDate = false var_Chart.MarkSelectDateColor = 16777216 /0x1000000/ var_Chart.SelectLevel = 1 var_Chart.SelectDate(2008-01-15,true) var_Chart.SelectDate(2008-01-18,true) oG2antt.EndUpdate()
1524	How can I show vertical lines using the SelectDate OleObject oG2antt,var_Chart oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,0) var_Chart.FirstVisibleDate = 2008-01-01 var_Chart.MarkTodayColor = var_Chart.BackColor var_Chart.LevelCount = 2 var_Chart.AllowSelectDate = false var_Chart.MarkSelectDateColor = 2147418112 /0x7fff0000/ var_Chart.SelectLevel = 1 var_Chart.SelectDate(2008-01-15,true) var_Chart.SelectDate(2008-01-18,true) oG2antt.EndUpdate()
1523	How can I find if there is any filter applied to the control /begin event FilterChange() - Occurs when the filter was changed./ /* oG2antt = ole_1.Object MessageBox("Information",string( "If negative, the filter is present, else not" )) MessageBox("Information",string( String(oG2antt.Items.VisibleItemCount) )) / /end event FilterChange*/ OleObject oG2antt,var_Column,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.LinesAtRoot = -1 oG2antt.TreeColumnIndex = -1 oG2antt.FilterInclude = 4 var_Column = oG2antt.Columns.Add("Column") var_Column.DisplayFilterButton = true var_Column.FilterType = 240 var_Column.Filter = "C1" var_Items = oG2antt.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") oG2antt.ApplyFilter() oG2antt.EndUpdate()
1522	How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option OleObject oG2antt,var_Column,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.LinesAtRoot = -1 oG2antt.TreeColumnIndex = -1 oG2antt.FilterInclude = 4 var_Column = oG2antt.Columns.Add("Column") var_Column.DisplayFilterButton = true var_Column.FilterType = 240 var_Column.Filter = "C1\|C2" var_Items = oG2antt.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") oG2antt.ApplyFilter() oG2antt.EndUpdate()
1521	Is there any method to get only the matched items and not the items with his parent OleObject oG2antt,var_Column,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.LinesAtRoot = -1 oG2antt.FilterInclude = 4 var_Column = oG2antt.Columns.Add("Column") var_Column.DisplayFilterButton = true var_Column.FilterType = 240 var_Column.Filter = "C1\|C2" var_Items = oG2antt.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"C1") var_Items.InsertItem(h,,"C2") oG2antt.ApplyFilter() oG2antt.EndUpdate()
1520	Is it possible to specify a working day exception that would override the non-working day pattern OleObject oG2antt,var_Chart,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Pattern") var_Chart = oG2antt.Chart var_Chart.FirstWeekDay = 1 var_Chart.FirstVisibleDate = 2008-01-24 var_Chart.PaneWidth(false,52) var_Chart.LevelCount = 2 var_Items = oG2antt.Items var_Items.AddItem("Default") var_Items.ItemNonworkingUnits(var_Items.AddItem("1/26/2008"),false,"weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))") var_Items.ItemNonworkingUnits(var_Items.AddItem("1/27/2008"),false,"weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)") var_Items.ItemNonworkingUnits(var_Items.AddItem("Sundays"),false,"weekday(value) = 0") oG2antt.EndUpdate()
1519	How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area OleObject oG2antt oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.ScrollBars = 15 oG2antt.Chart.ToolTip = "" oG2antt.ScrollPartVisible(0,65536,true) oG2antt.ScrollPartVisible(1,65536,true) oG2antt.ScrollPartVisible(2,65536,true) oG2antt.ScrollWidth = 4 oG2antt.Background(276,RGB(240,240,240)) oG2antt.Background(260,RGB(128,128,128)) oG2antt.ScrollHeight = 4 oG2antt.Background(404,oG2antt.Background(276)) oG2antt.Background(388,oG2antt.Background(260)) oG2antt.Background(511,oG2antt.Background(276)) oG2antt.EndUpdate()
1518	Is it possible to associate an extra frame, border, EBN to the bar/task OleObject oG2antt,var_Appearance,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAbn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcCICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDkkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHAQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgCYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=") var_Appearance.Add(2,"CP:1 -4 -4 4 4") oG2antt.Columns.Add("Task") oG2antt.DrawGridLines = -1 var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,128) var_Chart.DrawGridLines = -1 var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-05,"K1") h = var_Items.AddItem("Task/ EBN Frame") var_Items.ItemHeight(h,32) var_Items.AddBar(h,"Task",2001-01-03,2001-01-15,"K2") var_Items.ItemBar(h,"K2",51,33554432) h = var_Items.AddItem("Task/ EBN Frame") var_Items.ItemHeight(h,32) var_Items.AddBar(h,"Task",2001-01-03,2001-01-15,"K2") var_Items.ItemBar(h,"K2",51,50331392) var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-05,"K3") oG2antt.EndUpdate()
1517	Is it possible to automatically display the working days duration in a column OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Columns = oG2antt.Columns var_Columns.Add("Tasks") var_Column = var_Columns.Add("Duration") var_Column.Def(18,513) var_Column.Def(19,"A") var_Column1 = var_Columns.Add("Working") var_Column1.Def(18,258) var_Column1.Def(19,"A") oG2antt.Items.AllowCellValueToItemBar = true var_Chart = oG2antt.Chart var_Chart.PaneWidth(false,256) var_Chart.FirstVisibleDate = 2002-01-03 var_Chart.LevelCount = 2 var_Items = oG2antt.Items h = var_Items.AddItem("Task 1") var_Items.AddBar(h,"Task",2002-01-04,2002-01-08,"A") oG2antt.EndUpdate()
1516	How can I apply colors to columns section of the control based on properties of the displaying bars /begin event BarResize(long Item, any Key) - Occurs when a bar is moved or resized./ /* oG2antt = ole_1.Object oG2antt.Refresh() / /end event BarResize*/ OleObject oG2antt,var_Chart,var_Column,var_Column1,var_ConditionalFormat,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() var_Column = oG2antt.Columns.Add("<fgcolor=FF0000>Tasks > 2 days") var_Column.HTMLCaption = var_Column.Caption var_Column1 = oG2antt.Columns.Add("PropertyBar") var_Column1.Visible = false var_Column1.Def(19,"") var_Column1.Def(18,513) oG2antt.Items.AllowCellValueToItemBar = true var_Chart = oG2antt.Chart var_Chart.LevelCount = 2 var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,96) var_Chart.NonworkingDays = 0 var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 > 2") var_ConditionalFormat.ForeColor = RGB(255,0,0) var_ConditionalFormat.Bold = true oG2antt.SelBackColor = oG2antt.BackColor oG2antt.SelForeColor = oG2antt.ForeColor var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"") var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-07,"") var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"") oG2antt.EndUpdate()
1515	Is it possible to update the colors on columns caption to highlight the critical path ( CPM ) /begin event BarResize(long Item, any Key) - Occurs when a bar is moved or resized./ /* oG2antt = ole_1.Object oG2antt.Items.SchedulePDM(Item,Key) oG2antt.Refresh() / /end event BarResize*/ OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items any h1,h2,h3,h4 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Column = oG2antt.Columns.Add("PropertyBar") var_Column.Visible = false var_Column.Def(19,"") var_Column.Def(18,269) oG2antt.Items.AllowCellValueToItemBar = true var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,48) var_Chart.NonworkingDays = 0 var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 != 0") var_ConditionalFormat.ForeColor = RGB(255,0,0) var_ConditionalFormat.Bold = true oG2antt.SelBackColor = oG2antt.BackColor oG2antt.SelForeColor = oG2antt.ForeColor var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"") h2 = var_Items.AddItem("Task 2") var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"") var_Items.AddLink("L1",h1,"",h2,"") h3 = var_Items.AddItem("Task 3") var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"") var_Items.AddLink("L2",h2,"",h3,"") h4 = var_Items.AddItem("Task 3") var_Items.AddBar(h4,"Task",2001-01-02,2001-01-03,"") var_Items.AddLink("L3",h2,"",h4,"") var_Items.DefSchedulePDM(5,255) var_Items.DefSchedulePDM(7,255) var_Items.SchedulePDM(0,"") oG2antt.EndUpdate()
1514	I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Bars,var_Chart,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,128) var_Bars = var_Chart.Bars var_Bars.AddShapeCorner(12345,1) var_Bar = var_Bars.Copy("Milestone","Original") var_Bar.StartShape = 12345 /0x3020 \| exShapeIconVBar \| exShapeIconRight/ var_Bar.StartColor = -1 var_Bar1 = var_Bars.Copy("Milestone","Red") var_Bar1.StartShape = 12345 /0x3020 \| exShapeIconVBar \| exShapeIconRight/ var_Bar1.StartColor = RGB(255,0,0) var_Bar2 = var_Bars.Copy("Milestone","Green") var_Bar2.StartShape = 12345 /0x3020 \| exShapeIconVBar \| exShapeIconRight/ var_Bar2.StartColor = RGB(0,255,0) oG2antt.Columns.Add("Column") var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Original"),"Original",2001-01-02,2001-01-02) var_Items.AddBar(var_Items.AddItem("Red"),"Red",2001-01-02,2001-01-02) var_Items.AddBar(var_Items.AddItem("Green"),"Green",2001-01-02,2001-01-02) oG2antt.EndUpdate()
1513	My icon-bars shows different when displaying in the chart. Any ideas OleObject oG2antt,var_Bar,var_Bars,var_Items oG2antt = ole_1.Object oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oG2antt.Chart.FirstVisibleDate = 2001-01-01 var_Bars = oG2antt.Chart.Bars var_Bars.AddShapeCorner(12345,1) var_Bar = var_Bars.Item("Milestone") var_Bar.StartShape = 12345 /0x3020 \| exShapeIconVBar \| exShapeIconRight/ var_Bar.StartColor = -1 oG2antt.Columns.Add("Column") var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Item 1"),"Milestone",2001-01-02,2001-01-02)
1512	The items are not colored in the chart panel OleObject oG2antt,var_Items any h oG2antt = ole_1.Object oG2antt.Chart.PaneWidth(false,128) oG2antt.Columns.Add("Default") var_Items = oG2antt.Items h = var_Items.AddItem("Item") oG2antt.Chart.ItemBackColor(h,RGB(0,255,0)) oG2antt.Items.ItemBackColor(h,RGB(0,255,0))
1511	I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links /begin event BarResize(long Item, any Key) - Occurs when a bar is moved or resized./ /* oG2antt = ole_1.Object oG2antt.Items.SchedulePDM(Item,Key) / /end event BarResize*/ OleObject oG2antt,var_Chart,var_Items any h1,h2,h3,h4 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,48) var_Chart.NonworkingDays = 0 var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1") h2 = var_Items.AddItem("Task 2") var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"K2") var_Items.AddLink("L1",h1,"K1",h2,"K2") h3 = var_Items.AddItem("Task 3") var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"K3") var_Items.AddLink("L2",h2,"K2",h3,"K3") h4 = var_Items.AddItem("Task 3") var_Items.AddBar(h4,"Task",2001-01-02,2001-01-03,"K4") var_Items.AddLink("L3",h2,"K2",h4,"K4") var_Items.DefSchedulePDM(5,255) var_Items.DefSchedulePDM(7,255) var_Items.SchedulePDM(0,"K1") oG2antt.EndUpdate()
1510	How can I display the Year in Thai, Buddhist, Korean format OleObject oG2antt,var_Chart,var_Level oG2antt = ole_1.Object var_Chart = oG2antt.Chart var_Chart.FirstWeekDay = var_Chart.LocFirstWeekDay var_Chart.MonthNames = var_Chart.LocMonthNames var_Chart.WeekDays = var_Chart.LocWeekDays var_Chart.AMPM = var_Chart.LocAMPM var_Chart.LevelCount = 2 var_Chart.PaneWidth(false,0) var_Chart.UnitScale = 4096 var_Level = var_Chart.Level(0) var_Level.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>" var_Level.Unit = 256 var_Level.ToolTip = var_Level.Label var_Chart.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>" oG2antt.Description(17,oG2antt.Chart.MonthNames) oG2antt.DefaultEditorOption(30,oG2antt.Chart.MonthNames)
1509	How does localization work OleObject oG2antt,var_Chart oG2antt = ole_1.Object var_Chart = oG2antt.Chart var_Chart.FirstWeekDay = var_Chart.LocFirstWeekDay var_Chart.MonthNames = var_Chart.LocMonthNames var_Chart.WeekDays = var_Chart.LocWeekDays var_Chart.AMPM = var_Chart.LocAMPM var_Chart.LevelCount = 2 var_Chart.PaneWidth(false,0)
1508	Is it possible to show the bars with a different brightness (2) OleObject oG2antt,var_Appearance,var_Chart,var_Items any h oG2antt = ole_1.Object var_Appearance = oG2antt.VisualAppearance var_Appearance.Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn") var_Appearance.Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn") var_Appearance.Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn") var_Appearance.Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn") var_Appearance.Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,128) var_Chart.NonworkingDays = 0 var_Chart.Bars.Copy("Task","--").Color = 16777216 /0x1000000/ var_Chart.Bars.Copy("Task","-").Color = 33554432 /0x2000000/ var_Chart.Bars.Item("Task").Color = 50331648 /0x3000000/ var_Chart.Bars.Copy("Task","+").Color = 67108864 /0x4000000/ var_Chart.Bars.Copy("Task","++").Color = 83886080 /0x5000000/ oG2antt.Columns.Add("Brightness") var_Items = oG2antt.Items h = var_Items.AddItem("0%") var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--") var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-") var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"") var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+") var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++") h = var_Items.AddItem("25%") var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--") var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-") var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"") var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+") var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++") var_Items.ItemBar(h,"<>",19,25) h = var_Items.AddItem("50%") var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--") var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-") var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"") var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+") var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++") var_Items.ItemBar(h,"<>",19,50) h = var_Items.AddItem("75%") var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--") var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-") var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"") var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+") var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++") var_Items.ItemBar(h,"<*>",19,75)
1507	Is it possible to show the bars with a different brightness (1) OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Chart = oG2antt.Chart var_Chart.Bars.Item("Task").Color = 16777216 /0x1000000/ var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,128) oG2antt.Columns.Add("Brightness") var_Items = oG2antt.Items h = var_Items.AddItem("0%") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) h = var_Items.AddItem("25%") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",19,25) h = var_Items.AddItem("50%") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",19,50) h = var_Items.AddItem("75%") var_Items.AddBar(h,"Task",2001-01-02,2001-01-04) var_Items.ItemBar(h,"",19,75)
1506	So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt OleObject oG2antt,var_Chart,var_Items any h,h1,h2,h3 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.MarkSearchColumn = false oG2antt.OnResizeControl = 1 oG2antt.Columns.Add("Tasks") oG2antt.Columns.Add("Start").Visible = false oG2antt.Columns.Add("End").Visible = false var_Chart = oG2antt.Chart var_Chart.LevelCount = 2 var_Chart.FirstVisibleDate = 2006-09-18 var_Chart.PaneWidth(false,64) var_Chart.ScrollRange(0,var_Chart.FirstVisibleDate) var_Chart.ScrollRange(1,2006-12-31) var_Chart.MarkSelectDateColor = 2147418112 /0x7fff0000/ var_Chart.SelectLevel = 1 var_Chart.SelectDate(2006-09-19,true) var_Chart.AllowCreateBar = 0 var_Chart.AllowLinkBars = false var_Items = oG2antt.Items h = var_Items.AddItem("Project") var_Items.CellValue(h,1,2006-09-21) var_Items.CellValue(h,2,2006-10-03) var_Items.AddBar(h,"Summary",var_Items.CellValue(h,1),var_Items.CellValue(h,2),"sum") h1 = var_Items.InsertItem(h,,"Task 1") var_Items.CellValue(h1,1,var_Items.CellValue(h,1)) var_Items.CellValue(h1,2,2006-09-24) var_Items.AddBar(h1,"Task",var_Items.CellValue(h1,1),var_Items.CellValue(h1,2),"K1") var_Items.ItemBar(h1,"K1",22,2006-09-20) h2 = var_Items.InsertItem(h,,"Task 2") var_Items.CellValue(h2,1,var_Items.CellValue(h1,2)) var_Items.CellValue(h2,2,2006-09-28) var_Items.AddBar(h2,"Unknown",var_Items.CellValue(h2,1),var_Items.CellValue(h2,2),"K2") var_Items.AddLink("L1",h1,"K1",h2,"K2") h3 = var_Items.InsertItem(h,,"Task 3") var_Items.CellValue(h3,1,var_Items.CellValue(h2,2)) var_Items.CellValue(h3,2,var_Items.CellValue(h,2)) var_Items.AddBar(h3,"Task",var_Items.CellValue(h3,1),var_Items.CellValue(h3,2),"K3") var_Items.AddLink("L2",h2,"K2",h3,"K3") var_Items.GroupBars(h1,"K1",false,h2,"K2",true,31,"0;4") var_Items.GroupBars(h2,"K2",false,h3,"K3",true,31,"0;2") var_Items.DefineSummaryBars(h,"sum",h1,"K1") var_Items.DefineSummaryBars(h,"sum",h2,"K2") var_Items.DefineSummaryBars(h,"sum",h3,"K3") var_Items.ExpandItem(h,true) var_Items.ItemBold(h,true) oG2antt.EndUpdate()
1505	How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set) OleObject oG2antt,var_Column,var_Column1,var_Columns,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Chart.PaneWidth(true,0) oG2antt.MarkSearchColumn = false var_Columns = oG2antt.Columns var_Column = var_Columns.Add("Car") var_Column.DisplayFilterButton = true var_Column.FilterType = 240 var_Column.Filter = "MAZDA" var_Column1 = var_Columns.Add("Equipment") var_Column1.DisplayFilterButton = true var_Column1.DisplayFilterPattern = false var_Column1.CustomFilter = "Air Bag\|\|Air Bag\|\|\|Air condition\|\|Air condition\|\|\|ABS\|\|ABS\|\|\|ESP\|\|ESP" var_Column1.FilterType = 3 var_Column1.Filter = "AIR BAG" var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag") var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition") var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition") var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP") oG2antt.ApplyFilter() oG2antt.EndUpdate()
1504	How can I have a case-sensitive filter OleObject oG2antt,var_Column,var_Column1,var_Columns,var_Items oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Chart.PaneWidth(true,0) oG2antt.MarkSearchColumn = false var_Columns = oG2antt.Columns var_Column = var_Columns.Add("Car") var_Column.DisplayFilterButton = true var_Column.FilterType = 496 /exFilterDoCaseSensitive \| exFilter/ var_Column.Filter = "Mazda" var_Column1 = var_Columns.Add("Equipment") var_Column1.DisplayFilterButton = true var_Column1.DisplayFilterPattern = false var_Column1.CustomFilter = "Air Bag\|\|Air Bag\|\|\|Air condition\|\|Air condition\|\|\|ABS\|\|ABS\|\|\|ESP\|\|ESP" var_Column1.FilterType = 259 /exFilterDoCaseSensitive \| exPattern/ var_Column1.Filter = "Air Bag" var_Items = oG2antt.Items var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag") var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition") var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition") var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP") oG2antt.ApplyFilter() oG2antt.EndUpdate()
1503	Is it possible to add a custom label to the days with a specified background color OleObject oG2antt,var_Chart,var_Items any h1 oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2001-01-01 var_Chart.PaneWidth(false,48) var_Items = oG2antt.Items h1 = var_Items.AddItem("Task 1") var_Items.AddBar(h1,"",2001-01-02,2001-01-08,"K1","Leave Blank") var_Items.ItemBar(h1,"K1",29,false) var_Items.ItemBar(h1,"K1",7,255) oG2antt.EndUpdate()
1502	What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window /begin event ChartEndChanging(long Operation) - Occurs after the chart has been changed./ /* oG2antt = ole_1.Object MessageBox("Information",string( "End Operation(exVSplitterChange(10)" )) MessageBox("Information",string( String(Operation) )) MessageBox("Information",string( "PaneWidth:" )) MessageBox("Information",string( String(oG2antt.Chart.PaneWidth(false)) )) / /end event ChartEndChanging/ /begin event ChartStartChanging(long Operation) - Occurs when the chart is about to be changed./ / oG2antt = ole_1.Object MessageBox("Information",string( "Start Operation(exVSplitterChange(10)" )) MessageBox("Information",string( String(Operation) )) MessageBox("Information",string( "PaneWidth:" )) MessageBox("Information",string( String(oG2antt.Chart.PaneWidth(false)) )) / /end event ChartStartChanging*/ OleObject oG2antt oG2antt = ole_1.Object
1501	I want to ask if I can select more than one bar in the chart and move them together OleObject oG2antt,var_Chart,var_Items any h oG2antt = ole_1.Object oG2antt.BeginUpdate() oG2antt.Columns.Add("Task") var_Chart = oG2antt.Chart var_Chart.FirstVisibleDate = 2000-12-29 var_Chart.PaneWidth(false,64) var_Chart.LevelCount = 2 var_Items = oG2antt.Items var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1") var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-06,"K2") var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-08,2001-01-10,"K3") h = var_Items.AddItem("") var_Items.AddBar(h,"",2001-01-08,2001-01-10,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key") var_Items.ItemHeight(h,36) var_Items.ItemBar(h,"",29,false) oG2antt.EndUpdate()